﻿Imports WeifenLuo.WinFormsUI
Imports GisMapF
Public Class frmAnlyze
    Public frmAnlizeSolution_0 As New frmAnlyzeSolution
    Public frmAnlizeResult_0 As New frmAnlizeResults

    Private Sub frmAnlyze_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        frmGis_Map = New frmGis("c:\test")
        m_tree = New TreeFormV2(frmGis_Map.m_manager)
        m_prop = New PropFormV2(frmGis_Map.m_manager)

        AddHandler m_tree.LayerSelected, AddressOf m_prop.OnLayerSelected
        CreateBasicLayout()
    End Sub
    '创建窗口，并改变菜单的状态
    Private Sub CreateBasicLayout()
        '显示方案设置窗口
        Me.DockPanel.DockLeftPortion = 250
        frmAnlizeSolution_0.Show(DockPanel, WeifenLuo.WinFormsUI.Docking.DockState.DockLeft)
        '显示项目窗口
        frmAnlizeResult_0.Show(frmAnlizeSolution_0.DockPanel, WeifenLuo.WinFormsUI.Docking.DockState.DockLeft)
        frmAnlizeResult_0.DockTo(frmAnlizeSolution_0.Pane, Windows.Forms.DockStyle.Bottom, 0)

        '显示GIS
        frmGis_Map.Show(DockPanel, Docking.DockState.Document)
        Me.DockPanel.DockRightPortion = 250
        m_tree.Show(DockPanel, WeifenLuo.WinFormsUI.Docking.DockState.DockRight)
        m_prop.Show(m_tree.DockPanel, WeifenLuo.WinFormsUI.Docking.DockState.DockBottom)
        m_prop.DockTo(m_tree.Pane, Windows.Forms.DockStyle.Bottom, 0)



        'OutToolStripMenuItem.Checked = True

        'PorjectToolStripMenuItem.Checked = True
        ''PropertiesWindow.Show(DockPanel, WeifenLuo.WinFormsUI.DockState.DockLeft)
        'PropertyToolStripMenuItem.Checked = True
        'SolutionExplorer.Activate() '激活项目管理器
        'frmProject.Activate() '激活项目管理器
    End Sub
End Class